home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / misc / emu / d32.lha / d32 / asa_examples / Ex1 next >
Text File  |  1996-03-10  |  260b  |  17 lines
  1.  
  2.     ; An example of 6809e code
  3.     ; By S.Goodwin 1996
  4.  
  5.     ; Clear the text screen to black
  6.     ; (character 32)
  7.  
  8. start:
  9.     lda    #32        ; clear chr$
  10.     ldx    #1024        ; start of text screen
  11. loop:
  12.     sta    ,x+        ; write chr$ to screen
  13.     cmpx    #1536        ; reached the end yet?
  14.     bne    loop
  15.     rts
  16.  
  17.